﻿Public Class frm_rel_dest_contratados

    Private Sub bConfirmar_Click(sender As System.Object, e As System.EventArgs) Handles bConfirmar.Click
        Try
            Dim frm As New frm_relatorio
            Dim rpt As New rel_agendamento
            Dim dtInicial As DateTime
            Dim dtFim As DateTime
            dtInicial = dtInicio.Value.Date
            dtFim = dtFinal.Value.Date
            rpt.ParameterFields.Item(0).CurrentValues.AddValue(dtInicial)
            rpt.ParameterFields.Item(1).CurrentValues.AddValue(dtFim)
            frm.crvRelatorios.ReportSource = rpt
            frm.Text = "Relátorio de Destinos Contratados"
            frm.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub bCancelar_Click(sender As System.Object, e As System.EventArgs) Handles bCancelar.Click
        Me.Close()
    End Sub

    Private Sub frm_rel_dest_contratados_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class